home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 October / Software of the Month - Ultimate Collection Shareware 266.iso / pc / Xtras / Animation Wizard.dir / 00001_Script_1 next >
Text File  |  1997-05-10  |  6KB  |  198 lines
  1. -- Irv Kalb
  2. -- IKalb@aol.com
  3.  
  4. --  This demonstration of the Animation Wizard was developed by 
  5. --  Irv Kalb  of Furry Pants Productions under contract with 
  6. --  Macromedia, Inc.  January, 1996
  7.  
  8.  
  9.  
  10. on StartMovie
  11.   global goFunction
  12.   global goBannersText
  13.   global goZoomsText
  14.   global goCreditsText
  15.   global goBulletsText
  16.   global goMarkFrame
  17.   global goAnimateTitle
  18.   global goSeconds
  19.   global goFPS
  20.   global goBaseline
  21.   global goSizeMin
  22.   global goSizeMax
  23.   global goDelayEnter
  24.   global goDelayHold
  25.   global goCycles
  26.   global goVisualStyles
  27.   global goBanners
  28.   global goBullets
  29.   global goZooms
  30.   global goCredits
  31.   global goMotionStyles
  32.   global goScoreMgr
  33.   global goCastMgr
  34.   global goMovieName
  35.   global goPlatform
  36.   
  37.   cursor 4
  38.   
  39.   
  40.   -- Set up the artwork for this system
  41.   set memberScreenArtStart = (the number of member "OnScreenArtStart") + 1
  42.   set memberScreenArtEnd = (the number of member "OnScreenArtEnd") - 1
  43.   tell the stage to set thePalette = the framePalette
  44.   if thePalette = -1 then
  45.     set goPlatform = "Mac"
  46.     go to frame  "BannersMac"
  47.   else
  48.     set goPlatform = "Pc"
  49.     go to frame "BannersPc"
  50.   end if
  51.   
  52.   
  53.   InitTheGlobals()
  54.   
  55.   set goScoreMgr = 0
  56.   set goScoreMgr = birth(script "ScoreMgr")
  57.   
  58.   set goCastMgr = 0
  59.   set goCastMgr = birth(script "CastMgr")
  60.   
  61.   set goBannersText = 0
  62.   set goBannersText = birth(script "TextField", "BannersText", "This is banners text")
  63.   
  64.   set goZoomsText = 0
  65.   set goZoomsText = birth(script "TextField", "ZoomsText", "This is zoom text")
  66.   
  67.   set goCreditsText = 0
  68.   set goCreditsText = birth(script "TextField", "CreditsText", ("This is credits:Text" & ¼
  69.        RETURN & "And:So is this"))
  70.   
  71.   set goBulletsText = 0
  72.   set goBulletsText = birth(script "TextField", "BulletsText", ("This is Bullets Title" & ¼
  73.         RETURN  & "This is Bullets Text" & RETURN  & "This is Bullets Text Longer"))
  74.   
  75.   set goMarkFrame = 0
  76.   set goMarkFrame = birth(script "CheckBox")
  77.   
  78.   set goAnimateTitle = 0
  79.   set goAnimateTitle = birth(script "CheckBox")
  80.   
  81.   -- IncrDecrValue parameters are:
  82.   --     type, min, max, incAmount, chText, theFieldName
  83.   
  84.   set goSeconds = 0
  85.   set goSeconds = birth(script "IncrDecrValue", #int, 1, 999, 1, 5, "Seconds")  
  86.   set goFPS = 0
  87.   set goFPS = birth(script "IncrDecrValue", #int, 1, 120, 1, 7, "FPS")  
  88.   set theStageHeight = mGetStageHeight(goScoreMgr)
  89.   set goBaseLine = 0
  90.   set goBaseLine = birth(script "IncrDecrValue", #int, 1, theStageHeight,¼
  91.              1, 9, "Baseline")
  92.   set goSizeMin = 0
  93.   set goSizeMin = birth(script "IncrDecrValue", #int, 1, 500, 1, 22, "SizeMin")
  94.   set goSizeMax = 0
  95.   set goSizeMax = birth(script "IncrDecrValue", #int, 1, 500, 1, 24, "SizeMax")
  96.   set goDelayEnter = 0
  97.   set goDelayEnter = birth(script "IncrDecrValue", #int, 0, 60, 1, 11, "DelayEnter")
  98.   set goDelayHold = 0
  99.   set goDelayHold = birth(script "IncrDecrValue", #int, 0, 60, 1, 13, "DelayHold")
  100.   set goCycles = 0
  101.   set goCycles = birth(script "IncrDecrValue", #int, 1, 999, 1, 15, "Cycles")
  102.   
  103.   set goVisualStyles = 0
  104.   set goVisualStyles = birth(script "IncrDecrCast")  
  105.   
  106.   set goBanners = 0
  107.   set goBanners = birth(script "Banners")
  108.   
  109.   set goZooms = 0
  110.   set goZooms = birth(script "Zooms")
  111.   
  112.   set goCredits = 0
  113.   set goCredits = birth(script "Credits")
  114.   
  115.   set goBullets = 0
  116.   set goBullets = birth(script "Bullets")
  117.   
  118.   set goFunction = 0
  119.   set goFunction = birth(script "Function")
  120.   set goMovieName to the movieName
  121.   -- get rid of the extension
  122.   set offS to offSet( ".dir", the movieName )
  123.   if offS then
  124.     delete char offS to offS + 4 of goMovieName
  125.   end if
  126.   cursor -1
  127.   
  128. end StartMovie
  129.  
  130.  
  131. on StopMovie
  132.   nothing 
  133. end StopMovie
  134.  
  135.  
  136. on closeWindow
  137.   global goFunction, goBannersText, goZoomsText,  goCreditsText, goBulletsText, goMarkFrame
  138.   global goAnimateTitle,  goSeconds, goFPS, goBaseline, goSizeMin, goSizeMax, goDelayEnter
  139.   global goDelayHold, goCycles, goVisualStyles, goBanners, goBullets, goZooms, goCredits
  140.   global goMotionStyles, goScoreMgr, goCastMgr, goMovieName, gkTransparentInk, void, goPlatform
  141.   global gDevelopmentFlag, gCastNumCheckboxOn, gCastNumCheckboxOff, gCastNumTextAsBitmap
  142.   set goFunction to void
  143.   set gkTransparentInk to void
  144.   set goBannersText to void
  145.   set goZoomsText to void
  146.   set goCreditsText to void
  147.   set goBulletsText to void
  148.   set goMarkFrame to void
  149.   set goAnimateTitle to void
  150.   set goSeconds to void
  151.   set goFPS to void
  152.   set goBaseline to void
  153.   set goSizeMin to void
  154.   set goSizeMax to void
  155.   set goDelayEnter to void
  156.   set goDelayHold to void
  157.   set goCycles to void
  158.   set goVisualStyles to void
  159.   set goBanners to void
  160.   set goBullets to void
  161.   set goZooms to void
  162.   set goCredits to void
  163.   set goMotionStyles to void
  164.   set goScoreMgr to void 
  165.   set goCastMgr to void 
  166.   set goPlatform to void
  167.   set theName = goMovieName
  168.   set goMovieName to void
  169.   set gDevelopmentFlag to void
  170.   set gCastNumCheckboxOn to void
  171.   set gCastNumCheckboxOff to void
  172.   set gCastNumTextAsBitmap to void
  173.   forget window theName
  174. end closeWindow
  175.  
  176. on InitTheGlobals
  177.   global gDevelopmentFlag
  178.   global gCastNumCheckBoxOn
  179.   global gCastNumCheckBoxOff
  180.   global gCastNumTextAsBitmap
  181.   global gkTransparentInk
  182.   global goPlatform
  183.   if the windowList = [] then
  184.     -- Set TRUE for development, the AnimWiz MIAW will write to its own score
  185.     set gDevelopmentFlag = TRUE  
  186.   else
  187.     set gDevelopmentFlag = FALSE
  188.   end if
  189.   
  190.   set gCastNumCheckBoxOn = the number of cast ("CheckBoxOn" & goPlatform)
  191.   set gCastNumCheckBoxOff = the number of cast ( "CheckBoxOff" & goPlatform)
  192.   set gCastNumTextAsBitmap = the number of cast  "TextAsBitmap" 
  193.   set gkTransparentInk = 36
  194. end InitTheGlobals
  195.  
  196.  
  197.  
  198.